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E'A'E** EXP 

IA=IFIXC2000.*A> 

IE=IFIX(2000.*BA) 

CALL IP3IN<IA*IB> 

G2T09 

CTgp 

END 



o 

i 

© 

c?' 



o 



/ 



o 

# 
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£*§£ S 0URC 5 _IM. DIM A .^FORMAT 

Dieses Prograran bietet die Moglichkeit, ein verelnfoartes Source- 
Programs im DIN A 4 Foraat norwialertfeise auf TTX ausdrucken su 
lessen. Die elnzelnen Saiten uorden fort I .auf end nuraeriert und kS:v 
nen weiterhin mit einorn Titel versohin warden . Hbenfalis werden 
die Zeilen fortlaufend numeriert. 

*~* Die-ses LIST Program iso iro DC-File uud hat den Ha'nsn "LIST", so 
(^ da£ ss mi t 

g MS'? 8 

aufgerVifer) trerdan . snuS .. 

Das ?v--/gramm LIST foen5tigt folgeude Xo&i3Che Sinhaiten 

SI at Source Input 

LO « Liat Output in DIN A h 

CM » Operrator Message 

CC ~ Control commands 



z. B. $ JOB OM, CC, LO » 1l j Y 

,# SI « DS (NAME) 

$ LIST 



Nash Vereinbarung dea "SI" una Aufruf dsa Programs sisldot cs s.nn 
fiber "CM" rait desa Ausdi-uck 

"tiEBE PUOGRAHffiJiiME WAX 3'/ 2KICIL5H!" 

PR-1 



/ 

/ 



o 



# 



Die nun liber e: CC" einzugebsnden Zeichen erscheinen beiin Ausdruck 
zu Beginn jedcr Seite. 

Nach Eingabe dieser Zeichen rceldet sich da3 Prograrna Uber "Oil" wit 

"GEBE STATiTZEILE! FORMAT 15" 

tfbei* "CC" ist mm eine 5-stellige Xntcgerzahl einschlieBlich Voi*" 
zeichen einKugeben, die der govjtoschfesn Startxeile e?tts;prioht. 

Da3 Program beginnt dann salt dern Ausdruck der Seite, auf der die 
angegebene Zeile ateht (auf einer Seite shelien 60 Zeilen). 

Qibt man eins positive Zahl an* so erfolgt eine Nurcerierwxg der 
ZeiXen. Bei Eingabe einer negatives! Zahl fr r O) wird die Nvwerierung 
fort&elasaen. 



'ej^ 



Ist die angegsbene Zailenzshl grower ais die des Programus , so er< 
folgfc die Fehlermeldung; 

"ZEILENZAHL ZU GROSS". 



ER-2 



...... . .. ...__._._. 



GA 2 S ,O0-Xnf ©r«jati©h 



;-.v?» J'AM; Kovsfrtont' 






Da- '/ 
pro; • • 



.".-.it c. :i ';*■:.;.:;: : ; :'.;:*b^i tl:*. ehor: ICcp. 



Da.o 



: ::■■,; -;*.-; -;il 



cj, yy') % i 



nv^-T\. « 



o 



lUX 



Kcviwr. &i8. 



Ife 



M-t bf^' 



VK>i-f f.K--, 



i\ 






^ .;'. 


.'.'.' 




A.:'.' v. - 


i.'. .-■■ 


DO 


r;; .:■( 


"i 


• W8 



/ r ,,«r : 



' 



O a= 



X'0^.:''i ':':ii ;■ '<■'■ ■*"". : -' 2 -• Utio .•%.:.">>..-.. 



..ur "toi :-;er. 



i 1 



Bc&ate'c w/t Vii cit-> 5i'i 



1" I 



i' j-p :'.':. 



v.,.,.?-. 

,, I- - jh-. 



(': 



; m^jx: 



:%', '-.'.-' 



o 



i.:.".' :■ 



i,/ ... ' ■ .. ■■ 



.■) e-,vm-- ; ch *v-r uy:: r- >:■*■.;■. 



:;, .. ,.:t' .'..: ..'<.' 



.' . C- 



r:\ 






<n 









Qk lO/'/O-Ini'&raaiJion. 



- 7- 






. ". *, 



r^ f. 



% : :.v \r]:.v'>:,- : :[,:' a..:;i 

dlos* r:..-;U.:.' S^ilo nr : J ; . .HO 



/*i /.'■.;*' .-■■/' 



•: tf.'.rd r;;vr is.!' 
/ '£<:>:■:(.,■:•■ c.*.k- ; ;o. 



bex 



o 



O 



n .'-•>« Mt.-«-:.;.. 



:'.;,j ' 



^-5" 



<?-/ 



..' v'... **.*■!;..'>■:, ^^a'a' 



. ; . -:.i e> 



O 



:i i,j . ■ ,, 



uW 






O 






*» j'l^ fv*~v> 
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We::-.' 






oenytsv;, 



vosum^ci 






a 



ce> :;;e 



'■£) 



.';;' &li.3____vi$;iz 



Ri'iT 


~ Tauten 


A." S.U 







-' Tos-ten 



(Kci:.:.pO:?.cntGn) 



Pe;" /- , .*:;aIos;:'Oc:ti.':G2' > . wird ..] Mesial* vrenz: e: 






-•J * 



o 



So logische Betr&ebs&z't SKT 

\3„ CLOCK 10" 

5» Xo?sponer ; ten keine 

Bex ; l€doiVi. t!bergyii.g in cen A'nfsiigsr^stand t;l,wl die Logj 



A- i'yC- • 



&:?;« AusJsfS.c-.'i'i 3es D;i|<.tta.lvoIt:ii€''''Ov\5 



V, \ 



X3TE:? (PARAK) 
stir cStsuerr-rng c 






~^ 



.. : -s«*-.-'^. ;it:/i...;.:fe;^../ 



_„-*»_. ^. ..■.,, . .. 






tp 



SeiUe I 









5,1 Kh in S2C l«Iu 

"••■1 1", K?j.n 2r;r/i 5 i^. 



3:1.1- <«• ii'Vik'AJ ii.ii!>5>»i WAk ,11 



^ 



• 



Sj.S YOU fiC-T y:;'t-;. : f' 



*'&? je<;.?sA Su«i.t vrc.i.dor, tuire.us :»>cnr;:iC7."ic Fi'eiy.:<Jttr. .tiova.-^ -V.e An-.;; 
pu&oeafisis Soasrittwia^es Ketz sezsei^mct uwA in die&es Hot; 3 tf 



AllX&l.'f tlttS 



/W 



fo/vtAr{JCE '0-*.jO0 



**? ■■-■ '" i\ V'* *'* 'J "-" **• 


j l.i 


■iQ£~ 


jf/,-,V 


'pT^OCTV^n V-T.^ 


* Po: 


':'>'.;' , 


'1'. 'f 




vj*?: 


'•!?.'■' " 


,';0 



' .'. «.'. . '..it! 
-■■■ i''r!r- 



.;:.<;,•'.. r.Mis ri'TC'S? 






iiest- «.:. 



?lfen wit; Jtat<mri.u 



:;.r© i/0^.i^ti'': 



'■'iif '3'ii V-;-»*V; ?i^i.:0?* «& Ji^AsiJ.tP.;- 1 






u ::•'•; 



«",/.- 



,HV 



.?v; 






i * .-. ;:■ 



.(/<„* Life.' i. A «jVjW^.£-t! v--' ... „.'.->. i... 

,■...-: . s t ,,,,,.. ») ,. n , 1'-. ..,..,'- :• •-> '. : i - r.; Ti"'.'.' 






>"?'/ •?'-^ : 



=.-.:. -ii"=-i^*ei.^6si:iS 



CJA i3/3H" ; Iu*or:iU.it:'..'XV'':ia BS/2* l'-';3i tit 2 

Mji^'izM v:j.j\J:.,2v/ <p.t>t er Ode I-:;:.', i,ieser Grfc*£e urjd ihyen 

Ben, ; fe'tfrai ;;- ; inn ;^ii;e-D Vc^'-v^c--- ^ ^Itais-tfst."**" eiiifj^t^-, 
Pr. - Hutt r; ; .vi\ : .-i,U'i Dios^v^ •■;•#'.;' zvj jrsfcaoa 

(...* «*"••;/■•» ,-,':. r . >'-: iiv»w«.' ..- —«.i Kiwi 






£ 



8 



SWwi.T ,t-.;.: ,ri"i'..7,e-" salt era X~Y .■luhx-zi^?,' imge^-ist'ii;:: 



O % t »"|>-1 /■■, "3 <■> *■■ «-.» *»/r-> 71 " V ■■•'•VI i;t»1 •"»?> •"' IT 1 '"' f*i','C- C '*"•'•*•'*. L *^"'~f ■ "> £"»",'-'' * ;: ', ;3 W V, ' «■: V™^ " 

Km sal 7 j y-3» i-: ; ft 



|jM i ';:er t ''-' , v-.ll , 'o«2. '"'^ A/ai^w'9?\ ^J-pB^logtH^t^ 









,'.■_., t .... ......>■-.., ... j «*.. _v. -...,. .~ . ... .1 S.fiS... . j=.>'i..:_.,'.. »:t.>si*ji.-.,;-*.I-^.>iw.' ■■.■'.' ■■■ ,: .- .. : , ; : :i-. ^ ^ .«/^;..'. : :-.. . . ,^,'-v- - . .S .-' " — '■' .; :.-,■ 



1 



r\r -. ■■ ■ "Xf. _ T 



••- : a O'l u.' : •:■.' ■■.•■■"'- 



Dars'S olivine* alplisnuij»e|:;isOi-;^;;.\,J^giCfe^lr 



Bei der O/'x l8/30 konrien 



: :<; ;■ j ".vi :.'-■•'' ri i j'c; re .c ; .'i 



iehen. auf dz'si Art en 



'-■ T>;--; •>. ;.:vv> ;?;' : ;""> -3 <jji eil S5W8X f0?O3 «.X'OKXb.S 
0. A -FORMAT 



:-_i ? ..i.Ci'UA'l- i- 



i -iy* 



alpfcariusaerische Zsichev^ wslctie nicht durcS da.:; 

g-aadox't v;erd-3n sollen. Dagegen konnen d:?e lv.w\ -Format ein- 

eeieseften Daten dim3h_Jl2^J2aJU^^ 



1.7 'jAWr* "j«v 






?ORHAT-stat.gs: 



;.a^a«g.. 



.phaivjtiaerische Zeiehen. Blank gilt ais i 

EBAB (7< 1) 

1 FORMAT (25HALPHAIM3ERISGHS 

WRITE {?', 2} 

2 FORMAT {I2HUEB8RSCHRIFT ) 



., J.:.\l J- 3 U 



'CA>3.U '.«£■!..'. .". I ,.-L : !3 i.;-- Kj:.Ji.lis 



dew H -FORMAT fcorsnen auch alphanumss 
«enn sSe im FORMAT-stafc« 

werden . 






.s che Saichen 
lent awischan 



ADOstrophs gestellt 



?1A t 






. nm.dJl.^WjgfgL. :T 



/O -■■ JUli • 






I FORMAT f 'AL- 






''T~&*f fV* 1 






?ORKMT ( 



RSCnRTF-ir ) 



ii - FORM:' 



aj 



Das ii-FORHAT \-:±r& S3bi>;i;cMt, 



„'fien odes'* s.ns diesox* 



O 1 vU'v ^ 



;:-JT.".2QSi't -• v' 



Rami Eiascis-ial 



fcen aiifnehtnen una 

lay 



i.i.j, ;'i, '.- i. 1 J iw. , 









1st- dls Aii^aiii 6* 



">SClOGi- .''"K'OiC'S:.'' , Uv_".'<l ?4 ;: \' K2i>v ll ->.. Cjl ': V : 111 Q-::':.S I'c-'iCi ^•Bi.fciScUl ',- ! -<KI 



-.IT; V-T^-.v". 






,-senfclicli' ; 2 [lolls 
'"ollsesohi'I a !oe-n 



DlftE'^jfOM JFXGB(i5l 



.i ,) 1 .Lb ril.it s { a ) 



■O) 






1 1 ■ 



X'vj L ('• ' ''-'. i- '• JLi.ii&'C ■ 



v ■:... 



13 






IPSLD(M) 3FI>LD(5) IPi>LD< :; ') X^3LD(3) IPEl.'PO 



>. ..« ■■--■■—■-. ._ 



fiafc^&Mfcau.^Mtii 



IWMi'Mi. i,-i r.-- 



i-'tirTiiiii-iii—ftf"^^ 



".'. iu/ 30 — inx'Oi'rj^t j.o 



(311' B" ZE IC HE H« 

IF3LD{7) IFELD{&5 I?2LD(9) IP2I,D£lC) lM;LDi[il) IPELE(lS) 



ilM 



1F1LD{13) l¥'ELD(i4)' E'E'LD(l3) 

otSsr DIMENSION XFELD(lO) 

HE '\D (i, 2 ) ( IPSLD (K ) ., K«l , 10 ) 
1 ?0Ri 1 (10 A I) 

&Is Eings.be v-ilrd folgender Text geschi'Ieisen; 
ALPHJIKRIMERISGKE ZEiCBEK 

Xrn E'-sM IPBLD wirtl diasoi' T@xfc wic folgt abgefoildet; 
TPSLD(I) IFELD{K) IF2W)(j5) IP.3LB(4) KEI.D(3) 

rf U U*J iv- .'i*- *!•-' 

IPELD(6) IFELDf?) tt'J D(S) XPELB{9) TFELD(lO) 

dm? Rest- cites Eingitbstu^tas v; ; i; : :*d n:iclvfc be^'Ucksichtigt unci 



:-t- ciov't f:.,'.'-c?j die sntsprcciieiife Irrfcegei'z.&hl 



.... ■ i ... „• _._ ...^..^, a*^ „»_ _ _, - ,.„..,. :■,. ■.. ..-*v,. ......I- ,-■*&;_, .v.^.^aefe-.^-v^aaiaBifc^^i.. 



'50 - InfOi'-Katioii 



fit " ,?< '^ 



Drarateir 













B 



P 

a 



Aj 



CI 40 



C640 
C?'40 

C64$ 

D140 

D5^0 



.',Iit-j 'i 5/7 "■,-;,:■ i 



•l^dOo 

•13532 
.15296 

■ 140X6 

■ i 1 y'i>iS 
.11712 

-I i i'lv 

-11200 






E54 



j 10 



'"SOL 



.?■-'/". '.V 



-- 6080 



5 
6 



Itii JrOWV.T 









li- jiiiiv 1 d. ) 



6A 28/50 Informations:* 



gt^nming yoa PiJR'ff Ml f UjtteragogrgjMggtt 



TUUf-Real^Uhter^rogr&o&e rait elnfacther Genaulgkeit kftnnen von 
Hauptprograremen fait doppelter Osnauigkeit niehfc aufgerufe^i srerAen 
Deshalb sollte die Art das URterprograssass aua dam Naasexi ersishi*- 
Xich s@iKi.Oer ©rate Buobstabs dos Ok t er ^y ogran anea sollte laute&s 



Bei Integer- iJnterprograffinen 

Bel Real-Utofcerpr. ait einf&oher Genaulgkeit 

Bei Re&l-Ufetarpr. ssit doppelter Genauigkait 




Soil eira F0E^AN»Re&l«Qnt3x^rog?«unia ssit sinf&eher a@Bauigke.tfcF 
CF«»c) fttr Reobnungen sit doppelter Oenauigkeit benutzt we-rdem,, 
bo sollte aus Grttndexi aiaer bessaren Obersiehtllohkelt der Utete?« 
progranmute so geSMert warden* dafi er ailfc 1 begiant und @s 
mud vor de® Program* der Zusats #EXT 1HM® FRBCISION geaetzfc 

Integer-Unterprograjame brauohen nieht geaadert su werden,sofem 

der Ma» nit siaess. 1 bsgiimt. 

Beira Aufruf srufi aer voile Hame ;{ nit; J,,F Oder E) varaandt werflea* 
Der Grand fttr diese Benennung&bedingung liegt <3&rin*da£ ^©5? 
F0!RTRA2i-CQinpiler berelts csi© Platareservissniag fttr Variable und 
Konstante vorniirat,«n>bel flir INXEGJSR=0r8flen 1 Plata, fdr BEAL- 
Gro&en rait elnfacfeer Genaulgkeit 2 Flfitze oM fllr EEAI^- QrSgen 
mit doppelter denauigkeit 3 ?latze tesraitgestellt Harden. 






:'-' : >!*.;<. 
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USER LIBRAE? (UL) 

Alle nieht vam System benStigten Unterprogramme feefinden sioh in 
der UL tmd sind unter ihrem N&saen abgeXegt. 

Die einzelnen Unterprogramsae sind entureders 
1) In einem FORTRAN -Program diareh 

CALL Name (Pl s P2 5 .,....., Pn} 



J^ 2) in einem ASSEMBLER- Programs durcli 



CALL 


Name 




DC 


Adresse von 


PI 


DC 


Adresse von 


P2 


DC 


M 




DC 


B 




DC 


a 




DC 


Adresse von 


Pn 



aisfrufbar, mit PI, P2.« ........ Pn als Parameter 

Zu beaehten 1st, daB suss Aufruf des K CIC W (CORE - IMAGE - CONVERTER) 
folgende Steuerbefehle notwendig sind. 

CIC 
MAP* 

BUILD., UL 



■4 
Dieser Steuerbefehl ist mar erforderiich* wenn CORE - MAP 

erwUnscht. 



UL - 



..:..-. -.-; '.:■ 
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U nterprograima ANOUT 

Di©ses Unterprogram® befindet sich in der UL„ Ss ist swanalogen 
Aiasgabe von digitalen Werten geeignet. 

Die digitalen Werte nstissen Integergr5B@n iso Bereich von + 2000 sein. 
Die zugehSrige Ausgangsspannung ist + 5 V. 

Das Unterprogramm wirds 

1) Im FORTRAN -Programm durch 

CALL ANOUT (IVAR, INR) 

2) im ASSEMBLER -Programm durch 



CALL 


ANOUT 


DC 


Adresse von IVAR 


DC 


Adresse von INR 


aufgerufen. 





IVAR - auszugebende INTEGER-Variable 
INR - analoger Ausgabekanal ...... 7 



IVAR mufi# wenn erforderlich, im Hauptprogramm so norssiert werden* 
da 8 IVAR maximal 2000 wird, (siehe Be is pie 1) 



UL - 1 



■ .......................... .-j— _.^.... ... 
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Belspiel zuo Unterprogramai ANOUT 



X . X0 * SIN (OMEGA *• T 

Y . Y0 * COS (OMEGA # T 
IX . IPIX (X/X0 * 2000.) 
IY m IPIX (YA0 * 2000.) 

CALL ANOUT (IX, 0) 

CALL ANOUT (IY, 1) 



PHI) 
PHI) 



STOP 
END 



Das ASSEMBLER -Programm dieses Unterprogramms 1st auf Seite UL - 3 
angegeben . 



UL - 2 



..,.:.•: . .. ■ _.-..,-,._ »,iwa.^»'„ w.vil„_ ,„..._,.._.... _ _ • ■■ J a.jL£^t,.L si 



OA 18/30 - Tntcrm9.t1.Km 



1 


0000 1 


01556<)23 




ENT 




ANOUT 


2 


0000 


0000 


ANOUT 


1 DC 







3 


0001 


0820 




XIO 




MASK 


4 


0002 


6B23 




STX 


3 REG3 


5 


0003 01 67800000 




LDX 


13 


» ANOUT 


6 


0005 00 C7800OO1 




LD 


13 


> 1 


7 


0007 


D03.F 




STO 




OH 


8 


0008 00 C7800000 




LD 


13 


9 


000A 


D01D 




STO 




BO 


10 


000B 01 0C00001A 




XIO 


L 


DISSE 


11 


000D 01 0C00001C 




XIO 


L 


DISOH 


12 


000F 01 0C00001E 




XIO 


L 


BOUT 


1? 


0011 03 0C000020 




XIO 


L 


OHACA 


14 


0013 


0810 




XIO 




DMASK 


15 


0014 01 67800026 




LDX 


13 REG3 


16 


0016 01 74020000' 




MDX 


L 


ANOUT, 2 


17 


0018 01 4C800000 




BSC 


I 


ANOUT 


18 


001a 


0000 




BSS 


E 




19 


00.".A 


0000 


DISSE 


DC 







20 


0£lB 


DC01 




DC 




/DC01 


21 


001C 


0000 


DISOH 


DC 







22 


401D 


DC02 




DC 




/DC02 


23 


#01E 1 


0028 


BOUT 


DC 




BO 


24 


001P 


D900 




DC 




/D900 


25 


#020 1 


0027 


OHACA 


DC 




OH 


26 


55021 


D902 




DC 




/D902 


27 


1*022 


PFPF 


MASK 


DC 




/PPFF 


28 


0023 


0480 




DC 




/0480 


29 


g ; 024 


0000 


DMASK DC 




/0 


30 


0025 


0480 




DC 




70480 


31 


0026 


0000 


REG3 


DC 







32 


0027 


0000 


OH 


DC 







33 


002? 


0000 


BO 


DC 







34 


002.i 


0000 




END 







UL - 3 



":4ii^i 



• 
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Unte r programm AN IH 



Dieses Unterprogramm befindet sich in d«r UL. Es 1st zum Einlesen 
von analogen Werten geeignet. 

Die analogen Wer-te mttssen im Bereich von + SY sein. Die zugehBrigei 
digitalen Werte sind IntegergrSfien im Bereich von + 2000. 

Das Unterprograrom wirci: 

1) Im FORTRAN-PrograimB dux-ch 

CALL ANIK (IWERT, INR) 

2) Im ASSEMBLER -Programra durch 

CALL ANIK 

DC ADRESSE von IWERT 

DC ADRESSE von INR 



auf tseruf en » 



IWERT = INTEGER -GrSBe de:»? Bing&ngsspanraang 
INR » an&loger Eing&feek&naX ....... 13 

BeRiextaig: Den Kanalen 0-3 sind Sample-Holci-VerstHrker vorgeschal- 
tefc, so dai diese Kanale echt simaltan eingelesen werden tt&snen. Su 

fiiesere Zweok *mi£ s wm aile vier SH VeratSrker &uf Hold zu &&tmn s belie 
Einlesen dieser Ksnals zu 1KB 2048 adcSiert werden. Sobald irgendein 
Kanal water seiner nonaaien NR eingalesen wird, gehen die SH-VerstSr- 

ker> in Sample -Mode. 



._.^.. .*«*...«..,*.. ,.._,.._ ■-■ .'.-..■■':^,. - .■.'.;-.;.■■ i>*f;«~>:\.:.:i W * . ...... .. .... ........ ._„*., ._ .*, . 
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Dieses Unterprograinm bsfindet aieh in dar UL. Ss 1st zur analogen 

Ausgabe eines cligitalen Ife^teyaares (IX, 2Y) geslgnet (Markierung 
als Piiatet in eiiiei* X-Y-Dars telling). 

Die digitalen Werte alisssn Integt i srSBen ira Be:,-eich + 2000 aein. 
Die sugehorige Ansgangsspanrmng ift ^ 5 V. 

Bas Unterprograinre wird; 

1) la FORTRAN-Progrssim dvrch 

CALL POINT (IX, If) 

2) ia ASSEMBLER -Programm dur-cb 

CALL POINT 

DC ADRSSSE Ton IX 

DC ADFJES3E von 1ST 

<U^V~*S. !"- ; - ■■■■■'■ '■■■• *»!**■ tj-A»* 

IX, If alissea, wenn erfordorlleh, im Hauptprogrojasn so normiert wer- 
d©a, fla.fi IX, Br maximal 20j^ %%rden. 

Zur Stsuer-ung der Peder eines X-Y-Schreibsrs client Ksnal 7 
(Punkt =. -i- 5V, sonst 0V) « 

Be-aerkurg: Eln spezieilss Kabcl miz- ^steuerwig ficss X-:'-jchreifcers 
MQ81LEY 7000 AM 1st voxt,an&d:*. 



UL - 5 



-....._ ..'.^ . _-<,_ l_V. .,....„., „ » „t. -*" -Si 



UA 



-^rprh(j 



rojM^ UP€V¥ 



MKi 



-£ IjRsJp/t) 




nu<u> 



TtCZ&f 






2?) . Ms&mI* l-*r 



CALL ttX^m C/K y M) 

0>C Ad^eps-^ W« ty 



UL-Scc 






...L. 



■■■■.*■• '■■'■ !■ ■'■.7': "'■">:■■.' i- .-■'-■i~y' 
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Unterprogramtn LESB 

Dieses Unterprogramm befindet sich in der UL. Es 1st sum Einlesen 
von alphanumerischen. Zeichen dureh TT3f in ein Feld des Hauptprograjraiss 

geeignet„ Es werden 30 swei Zeichen in ein Kernspeieherwort abge- 
■ spelchert. Vor dem Einlesen wind das ^eaainte" Eeld rait Blanks liber- 
schrieben* 

Das Einlesen der Zeichen beginnt an der Steiie, an der die TTi sich 
raomentan befindet. Alle Zeichen werden ohne Echo eingelesen unci auf 
4) bestiaante Zeichen kontrolliert (vgl. unten). Falls fceines der ku 

konfcrollierenden Zeichen vorliegt; wii*d das Eingabe zeichen audi auf 
TTY geschrieben'. Durch diese Abfrage ergifot sich eine gewisse YersB- 
gerung ' zwischen BetStigvng der Taste nnd Schreiben des Zeiohens auf 
dem Papier* Dieses hat eine etwas langsamere Eingabe des Textes zur 
Folge, als es beira Lesen ait Echo (Normalbetrleb der TTY) den Pail 
ist. 

Das Unterprogramm erkennt 'folgende Sonderseichens 

1) WR Durch dieses Zeichen wire das Einlesen beendet. Das Zeichen 

selbst wird nicht in das Peid des Kaaptprogrammes abge- 
^ spei chert* TTY f lifer t WR nicht aus. 



2) » Bunch dieses Zeichen wine das Einlesen beendet. Das Zei- 

chen .wird als letztes Zeichen in das Feld des Hauptprc-gra 
aes &bgespeiehert„ TT5f schr«ibt dieses Zeichen nicht, Es 
kann vom Haunt programs als Marke henutst werden. 



la? 



Durch dieses Zeichen wire das Einlesen beendet. Das Zei- 
chen wind als letztes Zeichen in das Feld des Hauptprogr&i 
mes abges pel chert* TTY schreibt dieses Zeichen nicht u Es 
kann vera Hauptprogranan als Clarke benutst werden. 
s 



. i « , 



: '; l..::' .;'.» :.~;v^ *;i\'.\ '• ■ ^ 
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4) Rubout Durch dieses Zeichen wird das Einlesen beendet, 3 auf der 
TTY ausgegeben und eine neue Zeile mit %u begonnen» Das 
Peld des Hauptprograranes wird auf tlen Ausgangszustand au~ 
rtickgesetzt. Eine eraeute Eingabe des Textes tcann erfolgen. 



5) «&~- Durch dieses Zeichen wird das jetfeils letzte Zeichen des 

Textes geltischt. Es werden soviel Zeichen des Textes (aus- 
gehend vom Ende) gel^scht. wie Korrekturzeichen eingegeben 
werden. fibers teigt die Anzahl der Korrekturzeichen die An- 
zahl der Textseichen., sc erfolgt automatiseh ein Rubout. 



Das Unterprograsma thirds 

1) its FQRTRAN-Frograsam durch 

CALL LESS (IPELD) 

2) im ASSEMBLER -Programm durch 

CALL LESB 
DC IFELD 



XFELD DC max, knz&hl der Worte 

BSS eu reservierende Wortansahl 

aufgerufen. 

Ik ere ten Wort des FeMes sraB die Anzshl der einzulesenden. Worte stehen 
(2 Zeichen in einera Wort). Beim Riicksprung aus dera UnterprograKiB wird 
diese Stelle des Felfies nieht mit der tats«chllchen gelesensn Wort- 
anzahl. verSndert. 



; ....■.'■',:.,■:,.:■■: >.■:■,..: J^',-'.: . <,:*,.,j:.^,i*,M -,S,y-- 
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1st die Anzahl der eingelesenen Zelchen grSBer als die vorfter verein- 

foarte Anzahl,, so wlrd die Eingabe abgebrochen und es erfolgt ein Rilck 
sprung ins Hauptprogramni. 

Naeh Beendtgung d@s Einlesens steheo die einsgelnen Xeiehen av-sgabe- 
gerechfc ira Feld cies Haiiptprograisraes, d. h. 

1. Wort 2* Wort 3- Wort 

max. Wortanzahl I 1. Zelchen/ 2. Zeichenl b* Zeichefi/- - - . • | 

its * I * 



.«..ji.'h*fc*aa,iw..'Li' 1 ..« _■..: .**i-.\ .~;^uttKi&j.\-: 
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- UntBrprosramm LSSN 

Dieses Unterprograrnm befindet sich in der UL« Es isi sum. Einlesen '/on 
alphanuraerischen Zeichen durch TTI in ein Peld des Haupt programmes 
geeignet. Es werden Je z«rei Zeichen in ein Kernspelchervrort abgespei- 
chert. V01? deffi Einlesen ifird das gesamke Feld mit- /0000 (MnSre 
Mullen) tiberschrieben. Bei der Ausgaba ciieser biaaren Mullen schreibt 
die TT5T nieht (Here Is -Taste). 

Dieses Unterprogramm untersohdidet sich -worn UntefprograraaLESB durch 
das Uberschreiben des FeMes mit bin&ren Mullen anstelle von Blanks 
bei LSSB. All© anderen Einzelheiten siria glaich -and kSnhen bei der 
Beschrelbung des Unterprograrames LESB naehgelesen wer&en« 

Das Unterprogramm wirds ■ 

1) im FORTRAN-Programns durch 

CALL IESM (IESLD) 

2) im 'ASSEMBLER-Programm durch 



CALL 



IEELD 



1EELD DC 
ESS 



max. Anzahl der Worte 

zu reservierende Wortaniahl 



ap.fgeraifen« 



.;■■..■..'.;■.■■;. ;■■;;. ;.,;.j:>, ....._........_._.... ....._..._.....__._....._... 
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Unterprograinm LSSTY 

Dieses Unterprogramm befindet sich In der UL. Es 1st zum Einlesen von 
alptoaaumerischen Zeichen dureh TTSf in eln Peld des Haupfcprogrammes 
geeignet. Es werden je zwei Zeichen in ein Kernspeicherwort abgespei- 
cherfc. Vor dera Einlesen wird das gesamte Feld asit binSren Nullesi iibcr- 
schrieben. 

Das Einlesen der Zeichen beginnt am Anfang einer Zeile. Nach dea Auf- 
ruf des Unterprogrananes wird als erstes WR, 2V, ? .* Blank ausge- 
flihrt. Alle Zeichen werden mlt Echo eingelesen, d. h. es erfolgt sine 
simuitane Ausgabe des Zeichens auf derc Papier der TT5T. 

Das Unterprograran erkennt folgende Sender seiehenj 

1) MR Dureh dieses Zeichen wird das Einlesen beendet. Das Zeichen 

selbsfc wird nicht in das Feld des Hauptprogronsses abgespei- 
chert. TTY fuhrt WR &ub. Die tatsaehliehe Wosrtanzahl wird 
auf die Anfaogeadresse des Feldes im Hauptprogramia gespel- 
chert. Danach erfolgt der Rtleksprung ins Hauptprogransn. 

2) Rubout Durch dieses Zeichen wird das Einlesen bsendet, j auf der 

TTY ausgegeben und sine neue Sells Kit ?u hegennen was 
Peld des Eauptprograr3Eies wird auf den Ausgangszustand su- 
rUckgesetzto Eine erneute Eingabe des Textes kann erfols©a- 



>,: 



Dureh dieses Zeichen wird da.s je^eils letzte Zeichen «ies 
Textes gelSscht. Es wurden soviel Zeichen des Textes (aus- 
gehend von Ende) gelbscht, wie Korrekturzeicheri eingegehev 

warden, tlfoersteigt die AnKshi der Korrekturzeichea dis 
Anzahl der Textzeichen, so erfolgt satcsatiseh ein Rubout. 



Das Unterprogramm wirdt 

1) im PORTRAN-Prograsaa dureh 

CALL LEST? (XEELD) 



a(^,-,^.:A:/^l:,-v:-;ifc.:;7-.^-: ; ..: K i iliWi ;L 
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2} im ASSEMBLER -iProgransra durch 



CALL LESS 

DC IFELD 



.'...; '.,' sj 



sii r i e€'c 



>rte 
Jortaasaai 



aaf geraf ©b , 

Im ere ten Wort c:es Feldes muB die Anyafel (i 

(2 EeicSien in eira Wort) steiien. Beia; Bue&s 

wired ciiesa Stelle ciea Fslcles Kit dex 1 tstalf 

trerSndert. usi einesi Ausgalssprograffiia ci& ta 

Fax'aiater zia tifoergebexu 3s i einssi e:cneu.tett Ai£fm*f -jes LKSvC'f u 

imtsiirag ties gieiofeea Feldes in? IIaw.pfcpi:-cgi'a5;S 1st fieslialai aie 

At'Sali-J. fier einzulssenden Zeichen enaeut a«f dies© Stelle six 



>:ng ans dea ifeterprogi^ 
Licli .'seiesenea Wortass; 



1st die Anajiiil d©r singsless:aeK. Zeioiicin 
b&rie Ansaiil^ sso wirdjSie Eia 
sprung in Haiiptprograiiar:. 



y-s a n; -« 



.'.,« ;■:,>/: 



'( j s_ 



Hach Beendigung ties Einlesens sfcehea file einsdlnen Zeichea susgsbs- 
geneeiifc im FeM fles Hai«;tprogi'ssi3es^ c. h. 



i B vJort; 



wo; 






| Worfcanzahl I II. Seiehexi/ 



■" i -. ■'. '"; .C .'';•;! ".•' 



i^S ... f r>c5" 



B^Ai-.^ _ " , „. 
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Unt erprogranmi LBST1 



Dieses Unterprogransi befindet sich in der UL. Es 1st smi Einlesen von 
aiphanusserischen Zeiohen (lurch TTi in ein Fold ties Hau-ptprogras^es 
geeignet. Es werden je swei Zeichen in ei:a Kernspeicherwort abgespei- 
' chert. ¥0? dea Einlesen wire! das gesa&te PeM rait binarea Mullen itoer- 
schrieben. 

Das Einlesen cier Zeicfaen beginnt an der Stelle. an der die TT? sic-). 
momentan befindet. Alle Zeiehen weroen ©it Echo eingelesen. <S. h- es 
erfolgt eine siomltaae Ausgabe des Zeiofcens auf clem Papier der TIY. 

Dieses On ter programs unterseheiciet . sich in den weiteren Punkteo. aieht- 
vom Unterprograass LESTY. Weitere Einseiheitea kSnnen feei cier Beschrel- 
bisng dieses Unterprogramaies nachgelesen ^erden. 

Das Unterprogramsa wird : 

1) iiri FORTRAN -Prograinm rait 



CALL LEST1 (IFEI 



JlD) 



2) iffi ASSEMBIER-Programa nait 



CALL, 
DC 



IEST1 

IPELD 



IFELD DC 
DC 



max. Anzahl der Worte 

zu reservierende Wort&nzahl 



lufgerufen. 



,--..':. : vVi.:. J-:--,--, -v ■ ::■ ■ ■; 
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Unterprogramrri TYPE 

Dieses UnterprogratBsn beflndet sich in cler- UL. -Es ist zur Ausgabe von 
alphanumerischen Zeichen durch TTY aus eln&m Peid ties Haupt programmes 
geeignet. Es kSnnen maximal zwei Zeichen je Kernspeicherwbrt ausgege» 
ben \«3rden* Der Text miB Im Kernspeicherwrort im ASCII-Code vorhanden 
sein* wobei das 1. Zeichen linksblindig raid das 2* Zeichen recti tsbtindig 
im Kernspeicherwort stehen otufi. EM durch die Unterprograxnme LESTY 3 
IEST1, LESB., LESM erstelltes Dafcenfeld kann direkt durch TYPE ausge- 
geben werden. 

Die Ausgabe der Zeichen beginnt niit einer neuen Zeile„ 
Da^s Unterprogramm wird 

1) im PORTRAN-Prograuim durch 

CALL TYPE (IFELD) 

2) im ASSEMBLER -Program? durch 



CALL ' T5fEE 
DC IFELD 



IFELD DC 6 



Ausptabetesrfci 



aufgerufen. 



_ .iiJLk,^^^^. 
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Unterpro gramm TYPE1 

Dieses Unterprogramm befindet sich in der UL. Ss 1st zxxt Ausgabe von 
alphanumerischen Zeichen durch TTY aus eineaa Paid des Haupt programmes 
geeignet. 

Dieses Unterprogramm unterscheidet sich vom Unterprogramra TYPE nur 
darin, daB die Ausgabe der Zeichen an der Sfcelle foeginnt, an der sich 
die TTY momentan befindet, Alle weiteren Einzelheiten entsprechen dem 
Unterprogramm TYPE und kSnnen dort nachgelesen werden. 

Das Unterprograram wird 

1) ira FORTRAN -Progransa durch 

CALL TYPE1 (IHSID) 

2) ira ASSEMBLER -Programm durch 



CALL 
DC 



TYPE1 

IFELD 



IPELD DC 

ASC 



6 



Aussabetextw , 



aufgerufen. 



- . .,-.- j - .i» i«,i'-i.<_. j _...„.. j.... „.... • -• 
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Unterrgpyamn STAXY fi>H^7<&lf r 9f r u « ai 7^7>4a 

Dieses Unterprogramm befindet sich in des? UL, 2s ksmn dasu benutzfc. 

werdem., den X-Y-Schreiber in eine Start posit ion su bringen* chne daS 
die Feder aufsetzt. Die St&rtposition kana boliebig duz»ch d* : :S Werts* 
paar (IX., IY) angegeben warden. 

Die Merte IX und IY mttssen IntegergrSBer- J..k Bes'eicli + 2000 sein„ Die 
zugehSrige Ausgangsspanmsng 1st * 5V. 

Das Unterprogranaa wird 

1) is FORTRAN-Prograraa durch 

CALL STAXY (IX, IY) 

2) in ASSEMBLER ~PrograsBM durch 

CALL STAXY 

DC ADRESSE von IX 

DC ADRESSS von T£ 



if gertiren ., 



IX, IY mtassen* wenn erfoi'derllch- 
dafi sie maximal 2000 werden. 



Bs: ?:o'.ya7. a o(>;r&xnm so nor-riieyc 



Ausg&foekan&le : ■ IX 

IY 
Feders teuerung 



Kanai Mr, 1 
KansI Mx* B 7 



. . . . ... ^ .._* ', , 
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Unteggroggaam_KOOHp ■ 

Dieses Unterprogratnia befindet sich in &qt UL. Es kann zur Erstellnng 
eines ICoordinatennetsas benutst wer-cieB,, 

Das Unterprogranfin wi?d 

1) im FQRTRAN-Progr&nmi clureh 

CALL XOORD (NQUAD, MX 3 Iff) 

2) Is ASSEMBLER -Prograoua durch 

CALL XOORD 

PC ADRESSE von !Kl!JAD 

DG ADRESSE ¥on MX 

DC ADRESSE von. t?£ 

aufgerafen* 

Es fcedeutet: 

NQUAD » 1 Es wlrd nuu? cieF 1. Quadrat aaisgegefo@B* 
^ 2 Es wird titer 1. 4- 2 e Quadrat ausgegeben. 
» 3 Es wirsl cler 1. -;•• 2. -:- 3?, * 4. Quadrat au.«gegefeen. 

- Us wlx'd cler 1. * 2. -;• '$. -1- 4. Quadrat ai5Sgegeb©n„ 

NX « Ansahl tier Untex'telluns; 'd.er Afosssisse 
(einschlieSlich tier liill-Liiiie) 

NY r= Anzahl &&r Unterteilmigen. cler Ordinate 



(einscJilieBiicSi cl©r Auli- 
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n. 



i -i i.J & 







NQUAD 






MK 



Dieses Unterprogranm benBtigt folgende Analogen-AusgatoekanSle 



=s Ausgabs fies? X-Werte 
s= Aiasgabe dex- Y-Werte 
= Triggersignal fttr Pealift 
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Unterprograiaro SETF 



Dieses Unterprogrann. befiirfet slch- in, der UL. Es dient mm Set sen der 
Servopotentlometer des Analogrechners EAI-580. 

Das Unterjwogranffli wird 

1) im FORTRAN •Programm durch 

GALL SBTF (IWERT, INK) 

2) im ASSEMBLER-Prograaaa durch 

CALL SETP 

DC ADRESSE von IWERT 

DC ADRESSE ^oa IMR 

aiifgex'ufen* 

IVJERT 1st 10000 x Sollwert fies Potis 
INR 1st die A&resse des Potis 

s tt B* 

IWERT - 8525 ! 
IMR ' = 11 5 

.Poti Mr* 11 ^ir& dann auf den Wert 0,8325 gesetzt. 



UL - 



u :.,.r 
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UnterprogyamsB DVM 

Dieses Unterprograram befindet sich in dev UL* Es dient aims Ausleseh 
des Dlgitalvoltmeters won Analogrecbner EA2-580. 

Das Unterprogramm wird 

1) la FORTRAN "Programm durch 

GALL DVM (BISRT) 

2) im ASSEMBUSR-Prograran duroh 

GALL ANOUT 

DC ADRESSE von IWERT 

aufgerufen. 

IWERT 1st eins Integerzahl und gibt die Anzelge cies DVM in mV an. 



UL - 19 



vV'trt '•'ifiraan-ii .'-J 1 -'- 1 -' :j--,..i.-j- 
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Untgrprogramm XNTEP 

Dieses Unterprogramra befindet sich in der UL. Bs dient sur Ste-uerun$ 
des Analogreehners EAI - 580 (Betrlebsarten auswShlen, Komponenteft 
Adressieren usw. ) . 

Das Unterprograrara wird 

1) ira FORTRAN -Programm durch 



CALL 



INTEP (PARAM) 



2) In Assembler-Progranm durch 



CALL INTEF 

DC ADRESSE des PARAMETERS 



aufgemifen* 

ttber die einzelnen Parameter wind feetgelagt, weiehe Steuerfunktion 
ausge'fUhrt werden soli. 

Parameter 
Hexadezimal Desiraal Steuerfunktion 



1. ' Adressierung 

2 Komponentenanwahl 
2„1 

2,5 
2,6 

2.7 

3. Analcgteil 

3-1 

3„2 Set - Clear - Poti 

3*2.1 



/1001 
/1002 

/1004 
/1008 
/I010 
/1020 

/1040 

/80GQ 



/7100 

/7200 



00 - 99 



+ 4097 

-s- 4098 

* 4100 

+ 4104 

-5- 4132 

-t- 4l48 

■5- 4224 



- 32768 

26888 
2Q144 



XX = Adresse 



A 
P 
D/10 

D 
F 
PP 

Reserve 

gesamtes Intel 
face loEchen 

Set Poti 

Clear Poti 



UL - 20 
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3»3 


Timer 


J « S e -t 




p® 3» d. 




3«4 


Be trlebsarfcen 


3.4.1 




^? 6 » W 




5.*.. 3 




3.4.4 


s 


3.4*5 




"3-4.6 




4« 


Logikteil 


4.1 


Be tr ietosar ten 


Tci-ei. 




4a, 2 




4.1.3 




4.1.4 




4.2 


Clock 


4.2.1 




T" « C- ^0 




JjL O ** 




il P li 





Parameter 

Hexadezimal Dezimal Steuerfunktion 

/6 80 24?04 1 see 
/6040 24640 2 as 



/2001 
/2002 
/2004 

/2( 



/5001 


20481 


ST 


/5002 


20482 


•s? 


/5004 


20484 


OP 


/5008 


20488 


HOLD 


/5010 


20496 


IC 


/5020 


20312 


pP 



/4010 


16400 


RUN 


/4020 


16416 


SET 


/4040 


1.6448 


CLEA3. 


/4080 


16512 


PP 



8193 
8194 
8196 

8200 



10 

10 

10 



R 



Den einzelnen Parameters* k&inen in einem FORTRAH-Prograimn fiurch eine 
DATA - Vereinbarung Hexadeziraale Werte zugewiesen werden, z. B. 
DATA IAMPL, IPOTI* ITIM1, ICLST/Z1001, 21002, Z608O, Z2001/ 



CALL INTBP (IAMPL) 

CALL XMTEF (IPOTI) 

CALL 1NTEF CITIM1' 

CALL JMTEF (1CLST) 



Verstarker axiwHlilen 

Poti aswaLilen 

Timer auf fs set sen 

Clock flir die Logik auf STEP sstzen 
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Die Parameter -mUssen all® IntegergrSBen seta. Sie ktfamen auch durch 



& 



.iweisung ihrerDezimalwertG vereinbart warden, z. B. 

1AMPL « 4097 

1P0TI = 4098 

ITIM1 - 24J04 

1CLST m 8193 



bL - S2 
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ilEterprogr 

Biases l;'T«t 



Jet Si -li is 4e 






- 1 -' j», 



ft 1 * *f* ■yT* 1 f*" ffl 



CMX, ./if' 



l: f. 



5S3. V 






« oeter 



i«i* > f* 



:w%v 



',.Vi^r- 



'■'• = '" PJ. i: i"i[G'3" ;S;':.K 



1st dla Se 
en,thalt@E<s 



;dett 



nil'- Vijr '■' "^ OHW * "%%■€&? 



• 



.rrograsst'fi e 



:•* < 



TW! 
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Function IWSiDL 

Dieses Onterprogramjn befindet sich in der UL 

Zwecfr : 

Unwandlung von ®ingelesenen Zahlen in sugeordnete iCennzablen. 
In eine Integer- Variable warden ein ©der zwei Buchstaben ira For- 
mat Al Oder A2 eiagelesen und jeder Buehstabe in eine Kenns&hl 
umgewandelt.Bei zwei Buchstaben jrden die Kennzahlen addiert. 



Aufruf : 



READ (7,101* IB 
X01 F0MT (Al) 



NB » BJNDL (IB} 

rait 

IB * eingelesene Buchstaben 

NB m KennzahX der Buchstaben 

Zuordnung von Buchstaben und Kennzahlen s 

ABCD'EPOHIJKLII 

1 2 5 4 5 6 7 8 9 17 18 19 20 

HOPQRSTliVUXYZ 

21 22 23 24 25 34 35 36 37 38 39 40 41 

Bin •JUn.Mi chen ( Blank ) hat die Kennzahl 

Programm erstellt von ; R. Schulz 

UL-24 



GA 



J 8/30 I»f or mati on 



P£T£R 



{'Z,:,.k, . ro ; : befindel sicb \n der UL 















DAL£ E^fl 


nit 






©{6,6 




Be ( fa ') 



p*'.' 






irs;£&?«; 



ei>?;^ii 






ke *"» 



v:e; 



Pas Hsterpi"SS" rsw ^ 1^**'^ ^ y * 



j'. 



itffi.il ';- 



reev ft 



■■■,--■ ..■:■-.-*... ^i^/-^fe^.:>- 
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Unterpropramm MB'JPB 



Dieses Unterprogracaa befiadet si oh la der 

Zweek :. 

Bestiaitnung (tier Koeffisienten elxier llnear«n Glelchuag 

(max.5.0rdnung 5 aus eiaer Aasahl tob Funkten(nax.20 ) 'naeh 

folgendesi Aasats s 

Y*A Q + A t X + AgX 2 + A*X^ + Aj^X* * A^X 5 

Die Koeffizienten warden so bestiimntjdafi ©lie Suobrq der 

FehXerquadrat© minimal wird. 

Auf ruf s (Fortran j 

CALL MINPE ( XW * YW , XMAX , S „ N * M } 
mit 

XW (50) m Feld der X-Werte 
¥W (50) « Peld dler Y-Werte 
IMAX s* Aktuell© FeldlSnge^50 

E(6) * KoeffiiBienten A @ - A g { A Q ** E(l). A,.~£(6) 

H >■ Anzabl der gew, Koeffisieaker* (N~l»-Ordnung des 

Folynoms) 



M * Marke Mwl : LSsung O.K 

(4»2 s Kelne lUSsung oaSglich 

BenSti gte Unter programme ; BETEK (~>BEf 6 ) , FUNCT 

Programm erstellt von : \ F . Bial&s 



"J?- 



Qk 18/50 information FimfS SBITB 

Bieses Unterprografttr* fo@find.et; si ©is in mr UL 

Es wird zur Evst'SllvMg sines logardtlMiscfeeii KoorcSiinateKiinetses 

Aufruf£ (Fortrsya) 

CAM. PI/MEW { Ml * m s R5 ) 
rait 

IOC a Assahl sler- Bskadiea is X--=Biehtusi§ 

BE ™ Kor&isrte LSnge elnex* ©ek&cle ( 1.0 *» 5% ) 
Wird RB^O . Uberseben 9 60 beyeotenet sich diss Uaterprogpatsra: die 

gtinstigste Dek&danl&ise seitat^md swap so,dmB «®r Ausg&ke« 

©paxmungstoersiofo { -5? Ms *5^ ) S^ 8 ' geautst tfirduDAe so 
berecimete DekadetLLSnge 3i?d eesa Hauptprograuam i!1aei?g®fo©i?& Mi 

kasffii dort sue* Moral ®ru?i& «lm: u AnsgabsgrSSeR vsrwaMt warden* 
WliM beiirs Juxfruf voa FMffl eis sn groHes Rl tlbepgefeaa 
C KS>-2/Hl odter PE--S/W )«sc> epfoigt; sine F®hI@msXclu&g uaei 
@s m&ssen neu« Wert® fllr MX s HI 5 - uad BIS fibs;? 'Klf eingegefem 
werden.( P0BMIif 218, F- 10. 5 > 
Beispi^Xs 0^0^0.5 

Dest Benutzer wlrd f iie loglicAikeit gegsfo-ea.die Ansahl ©ier 
UKterteiXungert fifcr- eine Sate, 4® ( IBI bsw. XH¥ ) nac Ihre Lag© 
(ItX(IBI) fegw. BY(XBY)) ssitest su fe^stismsn »der> afeer die £©!« 
genden Staxidlardlwerte su. fe®lag$ms 
IHX « IKY « OS 

HX (1) RY (I) « 1.0 

HX (2) ® KX (2) » 2,0 

sx (5) « R^ D) « £ -© 

hi (4- a BY (4) « 6.0 

IOC (5) « M (5) » 8,0 



(6) « 10.0 



Xi»l»" **" <' 



S oilers ftieise Staaiv- 
nach den Aufruf Kit 
Somssfc aber sim© &:U 
einander if-; i'S '©&■:■•,< 

10 S^iES- 

die letztsn Werte 3 
wie dier Istste ¥«S;r' 

Bi{i) * i.o 

RJC{2) « 2.0 
RX(5) - 5.0 

¥or cleK Z&i®hntm •iu 
rait clen* Scb^eiber ■ 
steXlen kesmoBei 3< 
eine A eisg^gelMm ■ 
Beisoiels ,,,, ; , TV 



sIec! IKE 



' 5 Ul US 



-3<il';l SO... I X»'3'i 

,Q) tor Sis 



uste scsMoai eter ©rsife 5 Wert ! 






Ki? r.ax-'-?;: :; 



■5V -. — 



H&.X 










-j- 






Programs erst8l.lt von : R. SohulE. 









u 



-A- 



% 



ir#,i* im n<Wt£ / 



HlX^ 



-?h^ck : 






BlutjCjIn-t. ; 'Prepra.UttM J Vch ti/Ji/ - J 



'PvQf'a*it.n 2- vet* LkfJ~- 4&~ 



Ain'tiiL^ : . [mdi. LW '-2 ( Ma^dcc-fl : #•?/ 






£$7> LFCTj. 
$Sf~ LFCTrccjsi) 






7tk 'zVR 



/ 



Uo/v vatic 



t/s . ., 



h+wx&d die- IkrU^ . SO 



-CO d 



rf*n 



Uc 



4i> 



(fa-h* ] S- 20 , 



HitAL 



~2- 



/V&cLs diesis i+raf&e'ti &i*m d& V my ra. (***?*< - 
tfcL ftefgS lAtfidir^ "-«.r fir- clli -l} &*<***.&»<<£-/ 

. $pog\\\ ■ :_:;: _ 

; ; t ^r^ ... ; ; ; ; 7;; '.:;;:;: 

■33/. £-*>*■/.;. ; 

i.HUUz ::■:;.: 



. ( d&^c { t#nvf 



1 1 y * ^ 
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GA 18/30 - Information 
LIBRARY (LB) 



Alle voir System benCtig'ben UnterprogrgjMie feeflnden sich in der LB 

unci sind dert \mter ihresr: Namen abgelegt. Sie werden ■ durch das 

Program w CIC n (CORE - IMAGE - CONVERTER) aufgerufen und dent Haupi 

progratnm hinzugef ilgt » 

Der Steuerbefehl lauteti 

CIC 






>.-" 



MA.P "**'' 
BUILD 



%) Dieser SteuerbefeLI isfc /air erfor-derlich* v*enn CORE » MAP 



GA 18/30 - Information 



unter program^ TX 1H 



Dieses Unterprograsffi be.fln.det slob in der LB„ Ss 1st s*ar Singe/be 
eines Zeiehens durefe TTY gedaciit, wobei dieses Zeichen nicht auf 
TTV ausgegeben wird (Schreitosn ohne Echo)* Dieses Seiclien «ird naci 
des EInlesen linksMlndig ins A -Register (XE4) gel&den und stent 
dorfc den welteren Pi'ogramraen sur Verftigung* 

Das Unterprogyamw tclixl i w; ASSEMBLER --rK'og^ajwr durch 



CALL „<>■•> o TxXN 



aufgerufen,, 

Danacfc 1st das Zeichei) im A -Register leU fcLgt zu lesen: 

XX00 

XX. s ASCII - Coie tes singeg€=benen. Zeiehem 

Belspiels 



CALL , . . TYIN Amfruf von T'tW. 

STCL n , . .TIMol Hingab:-2*eicb*n abspeiclw 



Tvdcji nr. ' /Txotfn E-ix>- & ' :i h^7-f'.y ch'^.n Ik ASC IX -Code 



- .;'..:.. _ r . . ;■'.'...::., .*..'■. "..'.'.■> /.;.,.. ..,•." v I.:.;:,:: ... ...■'■ .:•■ .-- . ■ y i.~ : ; ::-.■'■?. 



GA 18/30 - Information 



Unterprograrom TYIME 

Dieses Unterprograims befindet sich in der LB* Es ist zur Eingabe 
eiiies Zeichens durch TTI gedacht, vsobei dieses Zeiohen gleiehseitij 
av.efe auf TTY ausgegeben wird (Schreibea mit Echo). Dieses Zeichen 
wird nach dem Elnlesen ■ linksbtindig ins A -Register '(XR4) geladen un« 
steht dort den weiteren Prbgrassmen zur Verftlgung. 

Das Unterprogramm wird ±m kSSEMBlER^Frogrsxm durch 



CALL .... TYINE 



aufgerufen. 

Danach ist das Zeichen ±m A -Register wie folgt zu lessens 

1X00 

XX; ASCII -Code des eingegebeaen 
Beispiel ; 



CALL . . . .TYINE Aufraf von TY1HE 

STO TY001 Eingabe as icfesn sbspeichei 



WQ01 * DC . . . . . /XX00 EIngabeselehen im ASCII-Cods 



sra. 



'■.,:'■'■•■';:■.:.■:>-;-.',.■ ,.:■. - ■ . >: •' -, . ..',„: * ^ > ■ ; ,/ ' ,L ' ,;-.: ' .. .ist^ 



GA 18/30 - Information 



Un te rprogramm T^OUT 



Dieses Unter program befindet sich in der LB. 'Es ist zur Ausgabe 
eines Zeichens auf TTY gedaoht. Dieses Zeichen amS foeim Aufruf des 
Unterprogrammes links blind ig ira A -Register (XR4) stehen* 

Das Unterprograram wird ira ASSEMBLER -Programs durch 



3ALL . . . . T5T0UT 



aufgerufen. 

Das 'Zeichen rnuS vor dcm Aufruf wie folgt im A-Register stehen: 



XX: ASCII -Cede des auszugebenden 

Zeioiiens. 

Beispiel: 



LD . . „ . „ TY001 Ausgabe zeichen laden 
CALL TiOljT Aufruf von TYOUT ' 



TY001 c. DC ....... /XX00 Ausgabezeichen i© 

ASCII-Code 



■..'■ x.. :- ■ * . ., ., .. .„ ,....*... ' ... ... .*/ 



„__*_ .^g^iaift^haiirtBfa^&Aafac.. * ,_ ._ > , . .. .^.a^ti 



# 



GA 18/30 - Information 



Unterprogramm WDAT 

Dieses Unterprogramm befindet sich in der LB. Ss 1st zurn Auslesen 
der Console-Dataswitches (DATSW) geeignet. Der Wert der DATSW wird 
einer vorgegebenen Variablen zugewlesen. 

1) Ira FORTRAN -Programm durch 

CALL WDAT (INAME) 

2) ins ASSEMBEER-Programm durch 



CALL. , • . . WDAT 
DC,. . • , . INAME 



INAME , DC, . • • . 
aufgerufen. 

INAME = Adresse, auf der der Wert 
von DATSW gespei chert wird« 



X:.i.T.i~JZiMit'iJ\&l 



..... - - ....._-_. .. _..,., _........_.....__.... _. . 



m 



GA 18/30 - Information 



Un te rprograrnm IDATS 



Dieses Unterprogranm foefindet sieh in der LB. Es ist zvm Auslesen 
eines definierten Console -Da taswitches (DATSW) geeignet. Die Nunaner 
des auszulesenden DATSW entsprieht der Numerierung auf der Console 
und wird dem Programm als Parameter Ubergeben. 1st der entsprechende 
DATSW gesetzt, so wird im A-Register (XR4) eine 1 gespeichert, ist 
DATSW nich^- gesetzt, so stent im A-Register (XR'O eine 0, 

Das Unterprogramsfo wird 

1) im FORTRAN-Prograran durch 

IDATS (N) Z. 3, IP (IDATS (N) ) 10, 11, 12 

2) im ASSEMBLER -Programm durch 



CALL IDATS 
DC N 



aufgerufen. N =•■ Nr. des auszulesenden 

DATSW {0 - io) 



• o , > 



_ ._ ' . .„ ~ „,..,.... .~.L, _„.,!, i..~. .,...?....,..*.-,_-.. ' '':.':.*. ^ .....,,.. . , ..-*... i ...« ,.*• ! :'>-:-.:...', ..^-, : 



GA 18/30 - Information 



Unterprogramtn NRDAT 

Dieses Unterprogramm befindet sich in der LB, Es ist zur Bestisamung 
der Nummer des ersten gesetzten Console -Da taswitches (DATSVJ) geeigne 
Die Numner entspricht der Numerlerung auf der Console vnd wir-d vcm 
Programm einer definlerten Variablen zugewiesen. 



Das Unterprogramm wird 

1) ira FORTRAN-Prograrasn durch 

CALL NRDAT (N) 

2) im ASSSMBLEH-Programrn durch 

CALL NRDAT 

BC N 

aufgeruferu 



M = Mr. des ersten gesetsten 

DATSW 



■'■■- -*;A.^'ut;^-,~->, ' i^i.^^ii-s^Liiiv 



itiMii&A<i*a^^ -.-■ ■■ 



nffifti - fin III ■■■ 



